PASCAL COMPILATION LIST PRODUCED BY PASCAL VERSION FROM 30-DEC-76 ON 24-FEB-79  AT 08:38:00  

   10   COMMENT    VALID 00002 PAGES
   20   C REC  PAGE   DESCRIPTION
   30   C00001 00001
   40   C00002 00002    PROGRAM PASCALSUCKS(OUTPUT)
   50   C00004 ENDMK
   60   C;
   70   PROGRAM PASCALSUCKS(OUTPUT);
   80   
   90   
  100   TYPE 
  110        STRING = PACKED ARRAY[1..16] OF CHAR;
  120   
  130        DTYPES = (LIT, NUM, DTPR);
  140   
  150        SEXPR = ↑ S1;
  160   
  170        S1 = RECORD
  180                   CASE DT: DTYPES OF
  190                    LIT:  (PNAME : STRING);
  200                    NUM:  (VALUE: INTEGER);
  210                    DTPR: (CAR: SEXPR;
  220                          CDR: SEXPR);
  230   
  240   END;
  250   
  260   VAR FOO,BAR, FUBAR : SEXPR;
  270   
  280   FUNCTION CONS (X,Y : SEXPR) : SEXPR;
  290               VAR Z : SEXPR;
  300            BEGIN
  310                NEW (Z,DTPR);
  320                Z↑.CAR := X;
  330                Z↑.CDR := Y;
  340                CONS := Z
  350            END;
  360   
  370   
  380   FUNCTION NULL (X : SEXPR) : BOOLEAN;
  390         BEGIN
  400           NULL := (X↑.PNAME = 'NIL4567890123456')
  410            END;
  420   
  430   FUNCTION APPEND (X, Y : SEXPR) : SEXPR;
  440    BEGIN
  450     IF NULL(X) THEN APPEND := Y 
  460         ELSE 
  470           APPEND := CONS (X↑.CAR,
  480                           APPEND (X↑.CDR,Y)) 
  490   END;
  500   
  510   NEW(FOO, NUM);
  *****   ↑********** 
               1.↑:  ILLEGAL SYMBOL 
  520   NEW(BAR, NUM);
  ***** ************* 
  530   
  540   FOO↑VALUE := 1;
  ***** ************** 
  550   BAR↑VALUE := 2;
  ***** ************** 
  560   
  570   
  580   FUBAR := CONS(FOO,BAR);
  ***** ********************** 
  590   
  600    END .
  ***** ***** 


   2 ERROR(S) DETECTED

RUNTIME:   0: 0.128